COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002
C00004 ENDMK
C⊗;

	if byte_hold = no_op then q ← gf_byte else q ← byte_hold;
	if (q≥new_row_0) and (q≤new_row_164) then
	    begin
	    w ← q-new_row_0;
	    b←gf_byte;
	    if b ≤ paint2 then
		begin
		if b = paint1 then b ← gf_byte else
		    if b = paint2 then b ← gf_halfword;
		end
	   else begin
		b ← 0;
		w ← 8 * bytes_required;
		end;
	    n ← 0;
	    dis ← w + b;
	    val ← 0;
	    end
	else if (q ≥ skip0) and (q < new_row_0) then
	    begin
	    if q > skip0 then
		begin
		q ← gf_byte;
		while q > 0 do
		    begin
		    for n ←1 thru (bytes_required div 4) do
			begin
			font:data[current_font][word_count] ← 0;
			word_count ← word_count +1;
			end;
! print(0 ,↓);
		    q ← q - 1;
		    end;
		end;
	    n ← 0; dis ← 0; val ← 0; w ← 0; b ← 0;
	    end;
	end;
	end;
print(" ",c,"(",word_count,")");
    end "save raster information"
until q=post;
end "hold_data routine";
 print(↓,"At post with word_count of ",word_count, ↓);
q←word_count;
 print("flength= ",flength," and need ",q+5 +((gfec + 1 - gfbc) lsh 2),↓);
! print("flength= ",flength," and need ",q+517,↓);
for i ← (4 * gfbc) thru (4 * gfec) do
    begin
    font:data[current_font][word_count] ← temp_directory[i] lsh 4;
    word_count ← word_count +1;
    end;